Software of the Month Club 1999 November

home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1999 November / SOTMC_Nov1999-Ultimate.iso / mac / REALbasic ƒ / Examples / Techniques / Examples by Thomas Tempelmann / TT's FileMgr-Plugin / Plugin Demo.π < prev next >
Unknown | 1999-07-06 | 11.0 KB | [TgPj/RBv2]
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`100%`	file	data	default
id metadata
key	value
macFileType	`[TgPj]`
macFileCreator	`[RBv2]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0b 04 00 00 41 41 41 41 | 41 41 41 41 41 41 41 41 |....AAAA|AAAAAAAA|
|00000010| 41 41 41 41 01 04 3f 3f | 3f 3f 00 00 01 01 01 00 |AAAA..??|??......|
|00000020| 0c 46 69 6c 65 4d 67 72 | 2d 44 65 6d 6f 80 80 80 |.FileMgr|-Demo...|
|00000030| 01 80 80 80 01 01 00 00 | 03 00 04 76 31 2e 30 1a |........|...v1.0.|
|00000040| 76 31 2e 30 2c 20 62 79 | 20 54 68 6f 6d 61 73 20 |v1.0, by| Thomas |
|00000050| 54 65 6d 70 65 6c 6d 61 | 6e 6e 00 06 69 63 73 23 |Tempelma|nn..ics#|
|00000060| 80 01 01 80 06 60 08 10 | 08 90 08 10 0c b0 33 4c |.....`..|......3L|
|00000070| 20 84 22 14 60 86 a2 17 | 99 9f 66 7e 18 78 06 e0 | .".`...|..f~.x..|
|00000080| 01 80 01 80 07 e0 0f f0 | 0f f0 0f f0 0f f0 3f fc |........|......?.|
|00000090| 3f fc 3f fc 7f fe ff ff | ff ff 7f fe 1f f8 07 e0 |?.?.....|........|
|000000a0| 01 80 49 43 4e 23 80 04 | 00 01 80 00 00 06 60 00 |..ICN#..|......`.|
|000000b0| 00 18 18 00 00 60 06 00 | 00 48 0a 00 00 42 22 00 |.....`..|.H...B".|
|000000c0| 00 40 8a 00 00 40 22 00 | 00 40 8a 00 00 40 22 00 |.@...@".|.@...@".|
|000000d0| 00 40 8a 00 00 60 26 00 | 01 98 99 80 06 06 60 60 |.@...`&.|......``|
|000000e0| 18 01 80 18 12 02 20 28 | 10 88 88 88 10 22 02 28 |...... (|.....".(|
|000000f0| 30 08 80 8c 70 22 02 2a | 90 08 80 8d b0 22 02 2b |0...p".*|.....".+|
|00000100| 98 09 80 99 a6 26 62 67 | 69 98 19 9e 1a 60 06 78 |.....&bg|i....`.x|
|00000110| 06 80 01 e0 01 a0 07 80 | 00 68 1e 00 00 1a 78 00 |........|.h....x.|
|00000120| 00 06 e0 00 00 01 80 00 | 00 01 80 00 00 07 e0 00 |........|........|
|00000130| 00 1f f8 00 00 7f fe 00 | 00 7f fe 00 00 7f fe 00 |........|........|
|00000140| 00 7f fe 00 00 7f fe 00 | 00 7f fe 00 00 7f fe 00 |........|........|
|00000150| 00 7f fe 00 00 7f fe 00 | 01 ff ff 80 07 ff ff e0 |........|........|
|00000160| 1f ff ff f8 1f ff ff f8 | 1f ff ff f8 1f ff ff f8 |........|........|
|00000170| 3f ff ff fc 7f ff ff fe | ff ff ff ff ff ff ff ff |?.......|........|
|00000180| ff ff ff ff ff ff ff ff | 7f ff ff fe 1f ff ff f8 |........|........|
|00000190| 07 ff ff e0 01 ff ff 80 | 00 7f fe 00 00 1f f8 00 |........|........|
|000001a0| 00 07 e0 00 00 01 80 00 | 69 63 73 34 80 02 00 00 |........|ics4....|
|000001b0| 00 0f f0 00 00 00 00 00 | 0f f8 8f f0 00 00 00 00 |........|........|
|000001c0| f8 88 88 9f 00 00 00 00 | f8 88 99 9f 00 00 00 00 |........|........|
|000001d0| f8 88 99 9f 00 00 00 00 | f8 88 99 9f 00 00 00 ff |........|........|
|000001e0| cc 88 99 11 ff 00 00 fc | cc cc 11 11 1f 00 00 fc |........|........|
|000001f0| c3 73 21 22 2f 00 0f fc | c7 37 12 12 2f f0 fc fc |.s!"/...|.7../...|
|00000200| c3 73 21 22 2f df f0 cf | f7 3f f2 1f fd df 0f f0 |.s!"/...|.?......|
|00000210| cf fc cf fd df f0 00 0f | f0 cc cd df f0 00 00 00 |........|........|
|00000220| 0f f0 df f0 00 00 00 00 | 00 0f f0 00 00 00 69 63 |........|......ic|
|00000230| 73 38 80 04 00 00 00 00 | 00 00 00 ff ff 00 00 00 |s8......|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 ff ff e1 e1 ff ff 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | ff e3 e1 e1 e1 e1 e5 ff |........|........|
|00000260| 00 00 00 00 00 00 00 00 | ff e3 e3 e3 e5 e5 e5 ff |........|........|
|00000270| 00 00 00 00 00 00 00 00 | ff e3 e3 e3 e5 e5 e5 ff |........|........|
|00000280| 00 00 00 00 00 00 00 00 | ff e3 e3 e3 e5 e5 e5 ff |........|........|
|00000290| 00 00 00 00 00 00 ff ff | 2a 2a e3 e3 e5 e5 0b 0b |........|**......|
|000002a0| ff ff 00 00 00 00 ff 2a | 2a 2a 2a 2a 0b 0b 0b 0b |.......*|****....|
|000002b0| 0b ff 00 00 00 00 ff 54 | 54 7f 7f 7f 11 11 11 17 |.......T|T.......|
|000002c0| 17 ff 00 00 00 ff ff 54 | 54 7f 7f 7f 11 11 11 17 |.......T|T.......|
|000002d0| 17 ff ff 00 ff f6 ff 54 | 54 7f 7f 7f 11 11 11 17 |.......T|T.......|
|000002e0| 17 ff f9 ff ff f6 f6 ff | ff 7f 7f ff ff 11 11 ff |........|........|
|000002f0| ff f9 f9 ff 00 ff ff f6 | f6 ff ff f7 f7 ff ff f9 |........|........|
|00000300| f9 ff ff 00 00 00 00 ff | ff f6 f6 f7 f7 f9 f9 ff |........|........|
|00000310| ff 00 00 00 00 00 00 00 | 00 ff ff f6 f9 ff ff 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 ff ff 00 00 00 |........|........|
|00000330| 00 00 00 00 69 63 6c 34 | 80 08 00 00 00 00 00 00 |....icl4|........|
|00000340| 00 0f f0 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 0f f8 8f f0 00 00 00 00 | 00 00 00 00 00 00 00 0f |........|........|
|00000360| f8 88 88 8f f0 00 00 00 | 00 00 00 00 00 00 0f f8 |........|........|
|00000370| 88 88 88 88 8f f0 00 00 | 00 00 00 00 00 00 0f 88 |........|........|
|00000380| 08 88 88 88 89 f0 00 00 | 00 00 00 00 00 00 0f 88 |........|........|
|00000390| 88 08 88 89 99 f0 00 00 | 00 00 00 00 00 00 0f 88 |........|........|
|000003a0| 88 88 09 99 99 f0 00 00 | 00 00 00 00 00 00 0f 88 |........|........|
|000003b0| 88 88 99 99 99 f0 00 00 | 00 00 00 00 00 00 0f 88 |........|........|
|000003c0| 88 88 89 99 99 f0 00 00 | 00 00 00 00 00 00 0f 88 |........|........|
|000003d0| 88 88 99 99 99 f0 00 00 | 00 00 00 00 00 00 0f 88 |........|........|
|000003e0| 88 88 89 99 99 f0 00 00 | 00 00 00 00 00 00 0f 88 |........|........|
|000003f0| 88 88 99 99 99 f0 00 00 | 00 00 00 00 00 0f fc c8 |........|........|
|00000400| 88 88 89 99 91 1f f0 00 | 00 00 00 00 0f fc cc cc |........|........|
|00000410| c8 88 99 91 11 11 1f f0 | 00 00 00 0f fc cc cc cc |........|........|
|00000420| cc cc 71 11 11 11 11 1f | f0 00 00 0f cc 0c cc cc |..q.....|........|
|00000430| cc 37 22 01 11 11 11 12 | f0 00 00 0f cc cc 0c cc |.7".....|........|
|00000440| 73 73 71 21 01 11 12 22 | f0 00 00 0f cc cc cc 07 |ssq!..."|........|
|00000450| 37 37 22 12 12 02 22 22 | f0 00 00 ff cc cc cc 73 |77"...""|.......s|
|00000460| 73 73 71 21 21 22 22 22 | ff 00 0f 0f cc cc cc c7 |ssq!!"""|........|
|00000470| 37 37 22 12 12 12 22 22 | fd f0 f0 cf cc cc cc 73 |77"...""|.......s|
|00000480| 73 73 71 21 21 22 22 22 | fc df fc cf cc cc cc c7 |ssq!!"""|........|
|00000490| 37 37 22 12 12 12 22 22 | fc cf fc 0f fc cc cc 73 |77"...""|.......s|
|000004a0| 73 7f f1 21 21 22 22 2f | fc df fc cc 0f fc cc c7 |s..!!""/|........|
|000004b0| 3f fd df f2 12 12 2f fc | dd df 0f fc cc 0f fc 7f |?...../.|........|
|000004c0| fd dd dc cf f1 2f fc dd | df f0 00 0f fc cc 0f fd |...../..|........|
|000004d0| dd cc cc cc cf fc dd df | f0 00 00 00 0f fc cc 00 |........|........|
|000004e0| cc cc cc cc cc dd df f0 | 00 00 00 00 00 0f fc cc |........|........|
|000004f0| 00 cc cc cc dd df f0 00 | 00 00 00 00 00 00 0f fc |........|........|
|00000500| cc 00 cc dd df f0 00 00 | 00 00 00 00 00 00 00 0f |........|........|
|00000510| fc cc dd df f0 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 0f fc df f0 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 0f f0 00 00 00 00 00 | 00 00 69 63 6c 38 80 10 |........|..icl8..|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 ff |........|........|
|00000550| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 ff ff e1 |........|........|
|00000570| e1 ff ff 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 ff ff e1 e1 e1 |........|........|
|00000590| e1 e1 e1 ff ff 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 ff ff e1 e1 e1 e1 e1 |........|........|
|000005b0| e1 e1 e1 e1 e1 ff ff 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 ff e3 e3 00 e1 e1 e1 |........|........|
|000005d0| e1 e1 e1 e1 e3 e5 ff 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 ff e3 e3 e3 e3 00 e1 |........|........|
|000005f0| e1 e1 e3 e5 e5 e5 ff 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 ff e3 e3 e3 e3 e3 e3 |........|........|
|00000610| 00 e5 e5 e5 e5 e5 ff 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 ff e3 e3 e3 e3 e3 e3 |........|........|
|00000630| e5 e5 e5 e5 e5 e5 ff 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 ff e3 e3 e3 e3 e3 e3 |........|........|
|00000650| e3 e5 e5 e5 e5 e5 ff 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 ff e3 e3 e3 e3 e3 e3 |........|........|
|00000670| e5 e5 e5 e5 e5 e5 ff 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 00 00 00 00 00 | 00 ff e3 e3 e3 e3 e3 e3 |........|........|
|00000690| e3 e5 e5 e5 e5 e5 ff 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 ff e3 e3 e3 e3 e3 e3 |........|........|
|000006b0| e5 e5 e5 e5 e5 e5 ff 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 ff | ff 2a 2a e3 e3 e3 e3 e3 |........|.**.....|
|000006d0| e3 e5 e5 e5 e5 0b 0b ff | ff 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 ff ff 2a | 2a 2a 2a 2a 2a e3 e3 e3 |.......*|*****...|
|000006f0| e5 e5 e5 0b 0b 0b 0b 0b | 0b ff ff 00 00 00 00 00 |........|........|
|00000700| 00 00 00 ff ff 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.....***|********|
|00000710| 54 0b 0b 0b 0b 0b 0b 0b | 0b 0b 0b ff ff 00 00 00 |T.......|........|
|00000720| 00 00 00 ff 54 54 00 2a | 2a 2a 2a 2a 2a 2a 54 7f |....TT.*|******T.|
|00000730| 11 11 00 0b 0b 0b 0b 0b | 0b 0b 11 17 ff 00 00 00 |........|........|
|00000740| 00 00 00 ff 54 54 54 54 | 00 2a 2a 2a 54 7f 7f 7f |....TTTT|.***T...|
|00000750| 7f 11 11 11 00 0b 0b 0b | 11 17 17 17 ff 00 00 00 |........|........|
|00000760| 00 00 00 ff 54 54 54 54 | 54 54 00 7f 7f 7f 7f 7f |....TTTT|TT......|
|00000770| 11 11 11 11 11 11 00 17 | 17 17 17 17 ff 00 00 00 |........|........|
|00000780| 00 00 ff ff 54 54 54 54 | 54 54 7f 7f 7f 7f 7f 7f |....TTTT|TT......|
|00000790| 7f 11 11 11 11 11 17 17 | 17 17 17 17 ff ff 00 00 |........|........|
|000007a0| 00 ff 00 ff 54 54 54 54 | 54 54 54 7f 7f 7f 7f 7f |....TTTT|TTT.....|
|000007b0| 11 11 11 11 11 11 11 17 | 17 17 17 17 ff f9 ff 00 |........|........|
|000007c0| ff 00 f7 ff 54 54 54 54 | 54 54 7f 7f 7f 7f 7f 7f |....TTTT|TT......|
|000007d0| 7f 11 11 11 11 11 17 17 | 17 17 17 17 ff f7 f9 ff |........|........|
|000007e0| ff f7 f7 ff 54 54 54 54 | 54 54 54 7f 7f 7f 7f 7f |....TTTT|TTT.....|
|000007f0| 11 11 11 11 11 11 11 17 | 17 17 17 17 ff f7 f7 ff |........|........|
|00000800| ff f7 00 ff ff 54 54 54 | 54 54 7f 7f 7f 7f 7f ff |.....TTT|TT......|
|00000810| ff 11 11 11 11 11 17 17 | 17 17 17 ff ff f7 f9 ff |........|........|
|00000820| ff f7 f7 f7 00 ff ff 54 | 54 54 54 7f 7f ff ff f9 |.......T|TTT.....|
|00000830| f9 ff ff 11 11 11 11 17 | 17 ff ff f7 f9 f9 f9 ff |........|........|
|00000840| 00 ff ff f7 f7 f7 00 ff | ff 54 7f ff ff f9 f9 f9 |........|.T......|
|00000850| f9 f7 f6 ff ff 11 17 ff | ff f7 f9 f9 f9 ff ff 00 |........|........|
|00000860| 00 00 00 ff ff f7 f7 f7 | 00 ff ff f9 f9 f9 f7 f6 |........|........|
|00000870| f6 f6 f6 f6 f6 ff ff f7 | f9 f9 f9 ff ff 00 00 00 |........|........|
|00000880| 00 00 00 00 00 ff ff f7 | f7 f7 00 00 f6 f6 f6 f6 |........|........|
|00000890| f6 f6 f6 f6 f7 f7 f9 f9 | f9 ff ff 00 00 00 00 00 |........|........|
|000008a0| 00 00 00 00 00 00 00 ff | ff f7 f7 f7 00 00 f6 f6 |........|........|
|000008b0| f6 f6 f7 f7 f9 f9 f9 ff | ff 00 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 ff ff f7 f7 f7 00 00 |........|........|
|000008d0| f7 f7 f9 f9 f9 ff ff 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 ff ff f7 f7 f7 |........|........|
|000008f0| f9 f9 f9 ff ff 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 ff ff f7 |........|........|
|00000910| f9 ff ff 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 ff |........|........|
|00000930| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 01 07 41 6e 79 46 69 6c | 65 04 3f 3f 3f 3f 04 3f |..AnyFil|e.????.?|
|00000950| 3f 3f 3f 00 00 01 41 04 | 56 69 65 77 0a 6d 61 69 |???...A.|View.mai|
|00000960| 6e 57 69 6e 64 6f 77 04 | ac 01 91 01 13 04 4e 61 |nWindow.|......Na|
|00000970| 6d 65 0a 6d 61 69 6e 57 | 69 6e 64 6f 77 05 46 72 |me.mainW|indow.Fr|
|00000980| 61 6d 65 01 30 0c 48 61 | 73 42 61 63 6b 43 6f 6c |ame.0.Ha|sBackCol|
|00000990| 6f 72 05 46 61 6c 73 65 | 09 42 61 63 6b 43 6f 6c |or.False|.BackCol|
|000009a0| 6f 72 08 31 36 37 37 37 | 32 31 35 08 42 61 63 6b |or.16777|215.Back|
|000009b0| 64 72 6f 70 01 30 05 54 | 69 74 6c 65 00 07 56 69 |drop.0.T|itle..Vi|
|000009c0| 73 69 62 6c 65 04 54 72 | 75 65 08 43 6c 6f 73 65 |sible.Tr|ue.Close|
|000009d0| 42 6f 78 05 46 61 6c 73 | 65 08 47 72 6f 77 49 63 |Box.Fals|e.GrowIc|
|000009e0| 6f 6e 05 46 61 6c 73 65 | 08 5a 6f 6f 6d 49 63 6f |on.False|.ZoomIco|
|000009f0| 6e 05 46 61 6c 73 65 0b | 42 61 6c 6c 6f 6f 6e 48 |n.False.|BalloonH|
|00000a00| 65 6c 70 00 09 4d 61 63 | 50 72 6f 63 49 44 01 30 |elp..Mac|ProcID.0|
|00000a10| 09 50 6c 61 63 65 6d 65 | 6e 74 01 32 05 57 69 64 |.Placeme|nt.2.Wid|
|00000a20| 74 68 03 33 32 36 06 48 | 65 69 67 68 74 03 32 30 |th.326.H|eight.20|
|00000a30| 35 08 4d 69 6e 57 69 64 | 74 68 02 36 34 09 4d 69 |5.MinWid|th.64.Mi|
|00000a40| 6e 48 65 69 67 68 74 02 | 36 34 08 4d 61 78 57 69 |nHeight.|64.MaxWi|
|00000a50| 64 74 68 05 33 32 30 30 | 30 09 4d 61 78 48 65 69 |dth.3200|0.MaxHei|
|00000a60| 67 68 74 05 33 32 30 30 | 30 07 00 0a 6d 61 69 6e |ght.3200|0...main|
|00000a70| 57 69 6e 64 6f 77 b0 01 | 06 41 70 70 6c 65 74 00 |Window..|.Applet.|
|00000a80| 00 02 06 44 65 6d 6f 49 | 74 0f 66 20 61 73 20 46 |...DemoI|t.f as F|
|00000a90| 6f 6c 64 65 72 49 74 65 | 6d 00 00 ba 01 00 ba 01 |olderIte|m.......|
|00000aa0| 00 bc 01 1b 53 75 62 20 | 44 65 6d 6f 49 74 28 66 |....Sub |DemoIt(f|
|00000ab0| 20 61 73 20 46 6f 6c 64 | 65 72 49 74 65 6d 29 2b | as Fold|erItem)+|
|00000ac0| 44 69 6d 20 73 20 61 73 | 20 53 74 72 69 6e 67 2c |Dim s as| String,|
|00000ad0| 20 72 73 72 63 4f 70 65 | 6e 2c 20 66 6f 75 6e 64 | rsrcOpe|n, found|
|00000ae0| 20 61 73 20 42 6f 6f 6c | 65 61 6e 21 44 69 6d 20 | as Bool|ean!Dim |
|00000af0| 76 52 65 66 4e 75 6d 2c | 20 69 2c 20 78 2c 20 65 |vRefNum,| i, x, e|
|00000b00| 72 72 20 61 73 20 49 6e | 74 65 67 65 72 19 44 69 |rr as In|teger.Di|
|00000b10| 6d 20 76 6f 6c 2c 20 76 | 32 20 61 73 20 46 6f 6c |m vol, v|2 as Fol|
|00000b20| 64 65 72 49 74 65 6d 00 | 3e 2f 2f 20 54 68 65 20 |derItem.|>// The |
|00000b30| 66 6f 6c 6c 6f 77 69 6e | 67 20 66 75 6e 63 74 69 |followin|g functi|
|00000b40| 6f 6e 73 20 61 72 65 20 | 64 65 63 6c 61 72 65 64 |ons are |declared|
|00000b50| 20 69 6e 20 74 68 65 20 | 70 6c 75 67 69 6e 20 77 | in the |plugin w|
|00000b60| 65 20 74 65 73 74 3a 3c | 2f 2f 20 a5 20 49 73 4f |e test:<|// . IsO|
|00000b70| 6e 52 65 6d 6f 74 65 56 | 6f 6c 75 6d 65 28 66 69 |nRemoteV|olume(fi|
|00000b80| 6c 65 4f 72 46 6f 6c 64 | 65 72 20 61 73 20 46 6f |leOrFold|er as Fo|
|00000b90| 6c 64 65 72 49 74 65 6d | 29 20 61 73 20 42 6f 6f |lderItem|) as Boo|
|00000ba0| 6c 65 61 6e 39 2f 2f 20 | a5 20 56 6f 6c 47 65 74 |lean9// |. VolGet|
|00000bb0| 56 52 65 66 4e 75 6d 28 | 66 69 6c 65 4f 72 46 6f |VRefNum(|fileOrFo|
|00000bc0| 6c 64 65 72 20 61 73 20 | 46 6f 6c 64 65 72 49 74 |lder as |FolderIt|
|00000bd0| 65 6d 29 20 61 73 20 49 | 6e 74 65 67 65 72 36 2f |em) as I|nteger6/|
|00000be0| 2f 20 a5 20 56 6f 6c 75 | 6d 65 42 79 56 52 65 66 |/ . Volu|meByVRef|
|00000bf0| 4e 75 6d 28 76 52 65 66 | 4e 75 6d 20 61 73 20 49 |Num(vRef|Num as I|
|00000c00| 6e 74 65 67 65 72 29 20 | 61 73 20 46 6f 6c 64 65 |nteger) |as Folde|
|00000c10| 72 49 74 65 6d 30 2f 2f | 20 a5 20 47 65 74 46 69 |rItem0//| . GetFi|
|00000c20| 6c 65 46 6c 61 67 73 28 | 66 69 6c 65 20 61 73 20 |leFlags(|file as |
|00000c30| 46 6f 6c 64 65 72 49 74 | 65 6d 29 20 61 73 20 49 |FolderIt|em) as I|
|00000c40| 6e 74 65 67 65 72 82 01 | 2f 2f 20 a5 20 53 65 74 |nteger..|// . Set|
|00000c50| 46 69 6c 65 46 6c 61 67 | 73 28 66 69 6c 65 20 61 |FileFlag|s(file a|
|00000c60| 73 20 46 6f 6c 64 65 72 | 49 74 65 6d 2c 20 66 6c |s Folder|Item, fl|
|00000c70| 61 67 73 20 61 73 20 49 | 6e 74 65 67 65 72 29 20 |ags as I|nteger) |
|00000c80| 61 73 20 49 6e 74 65 67 | 65 72 34 2f 2f 20 a5 20 |as Integ|er4// . |
|00000c90| 47 65 74 46 6f 6c 64 65 | 72 46 6c 61 67 73 28 66 |GetFolde|rFlags(f|
|00000ca0| 6f 6c 64 65 72 20 61 73 | 20 46 6f 6c 64 65 72 49 |older as| FolderI|
|00000cb0| 74 65 6d 29 20 61 73 20 | 49 6e 74 65 67 65 72 86 |tem) as |Integer.|
|00000cc0| 01 2f 2f 20 a5 20 53 65 | 74 46 6f 6c 64 65 72 46 |.// . Se|tFolderF|
|00000cd0| 6c 61 67 73 28 66 6f 6c | 64 65 72 20 61 73 20 46 |lags(fol|der as F|
|00000ce0| 6f 6c 64 65 72 49 74 65 | 6d 2c 20 66 6c 61 67 73 |olderIte|m, flags|
|00000cf0| 20 61 73 20 49 6e 74 65 | 67 65 72 29 20 61 73 20 | as Inte|ger) as |
|00000d00| 49 6e 74 65 67 65 72 34 | 2f 2f 20 a5 20 47 65 74 |Integer4|// . Get|
|00000d10| 46 69 6c 65 41 74 74 72 | 69 62 75 74 65 28 66 69 |FileAttr|ibute(fi|
|00000d20| 6c 65 20 61 73 20 46 6f | 6c 64 65 72 49 74 65 6d |le as Fo|lderItem|
|00000d30| 29 20 61 73 20 49 6e 74 | 65 67 65 72 2e 2f 2f 20 |) as Int|eger.// |
|00000d40| a5 20 49 73 46 69 6c 65 | 4f 70 65 6e 28 66 69 6c |. IsFile|Open(fil|
|00000d50| 65 20 61 73 20 46 6f 6c | 64 65 72 49 74 65 6d 29 |e as Fol|derItem)|
|00000d60| 20 61 73 20 42 6f 6f 6c | 65 61 6e 00 2e 73 20 3d | as Bool|ean..s =|
|00000d70| 20 22 50 61 74 68 3a 20 | 3c 22 20 2b 20 66 2e 61 | "Path: |<" + f.a|
|00000d80| 62 73 6f 6c 75 74 65 70 | 61 74 68 20 2b 20 22 3e |bsolutep|ath + ">|
|00000d90| 22 20 2b 20 63 68 72 28 | 31 33 29 00 10 73 20 3d |" + chr(|13)..s =|
|00000da0| 20 73 20 2b 20 22 74 79 | 70 65 3a 20 22 21 69 20 | s + "ty|pe: "!i |
|00000db0| 3d 20 56 6f 6c 47 65 74 | 46 6f 6c 64 65 72 49 74 |= VolGet|FolderIt|
|00000dc0| 65 6d 49 44 20 28 66 2c | 20 66 61 6c 73 65 29 0d |emID (f,| false).|
|00000dd0| 69 66 20 69 20 3d 20 32 | 20 74 68 65 6e 33 2f 2f |if i = 2| then3//|
|00000de0| 20 74 68 65 20 44 69 72 | 49 44 20 32 20 61 6c 77 | the Dir|ID 2 alw|
|00000df0| 61 79 73 20 69 64 65 6e | 74 69 66 69 65 73 20 74 |ays iden|tifies t|
|00000e00| 68 65 20 72 6f 6f 74 20 | 64 69 72 65 63 74 6f 72 |he root |director|
|00000e10| 79 10 73 20 3d 20 73 20 | 2b 20 22 56 6f 6c 75 6d |y.s = s |+ "Volum|
|00000e20| 65 22 17 65 6c 73 65 69 | 66 20 66 2e 64 69 72 65 |e".elsei|f f.dire|
|00000e30| 63 74 6f 72 79 20 74 68 | 65 6e 13 73 20 3d 20 73 |ctory th|en.s = s|
|00000e40| 20 2b 20 22 44 69 72 65 | 63 74 6f 72 79 22 04 65 | + "Dire|ctory".e|
|00000e50| 6c 73 65 0d 73 20 3d 20 | 73 20 2b 20 22 46 69 6c |lse.s = |s + "Fil|
|00000e60| 65 03 65 6e 64 0f 73 20 | 3d 20 73 20 2b 20 63 68 |e.end.s |= s + ch|
|00000e70| 72 28 31 33 29 00 3e 2f | 2f 20 74 68 65 20 56 52 |r(13).>/|/ the VR|
|00000e80| 65 66 4e 75 6d 20 69 64 | 65 6e 74 69 66 69 65 73 |efNum id|entifies|
|00000e90| 20 74 68 65 20 76 6f 6c | 75 6d 65 20 74 68 65 20 | the vol|ume the |
|00000ea0| 69 74 65 6d 20 69 73 20 | 63 75 72 72 65 6e 74 6c |item is |currentl|
|00000eb0| 79 20 6f 6e 3a 1a 76 52 | 65 66 4e 75 6d 20 3d 20 |y on:.vR|efNum = |
|00000ec0| 56 6f 6c 47 65 74 56 52 | 65 66 4e 75 6d 28 66 29 |VolGetVR|efNum(f)|
|00000ed0| 00 83 01 2f 2f 20 6e 6f | 77 20 6c 65 74 27 73 20 |...// no|w let's |
|00000ee0| 67 65 74 20 74 68 65 20 | 76 6f 6c 75 6d 65 20 72 |get the |volume r|
|00000ef0| 65 66 65 72 65 6e 63 65 | 20 28 72 6f 6f 74 20 64 |eference| (root d|
|00000f00| 69 72 65 63 74 6f 72 79 | 29 20 6f 66 20 74 68 65 |irectory|) of the|
|00000f10| 20 66 69 6c 65 3a 1e 76 | 6f 6c 20 3d 20 56 6f 6c | file:.v|ol = Vol|
|00000f20| 75 6d 65 42 79 56 52 65 | 66 4e 75 6d 28 76 52 65 |umeByVRe|fNum(vRe|
|00000f30| 66 4e 75 6d 29 00 2c 73 | 20 3d 20 73 20 2b 20 22 |fNum).,s| = s + "|
|00000f40| 76 52 65 66 4e 75 6d 3a | 20 22 20 2b 20 53 74 72 |vRefNum:| " + Str|
|00000f50| 28 76 52 65 66 4e 75 6d | 29 20 2b 20 63 68 72 28 |(vRefNum|) + chr(|
|00000f60| 31 33 29 2c 73 20 3d 20 | 73 20 2b 20 22 76 6f 6c |13),s = |s + "vol|
|00000f70| 75 6d 65 20 6e 61 6d 65 | 3a 20 22 20 2b 20 76 6f |ume name|: " + vo|
|00000f80| 6c 2e 6e 61 6d 65 20 2b | 20 63 68 72 28 31 33 29 |l.name +| chr(13)|
|00000f90| 00 10 73 20 3d 20 73 20 | 2b 20 22 66 6c 61 67 73 |..s = s |+ "flags|
|00000fa0| 3a 22 13 69 66 20 66 2e | 64 69 72 65 63 74 6f 72 |:".if f.|director|
|00000fb0| 79 20 74 68 65 6e 16 78 | 20 3d 20 47 65 74 46 6f |y then.x| = GetFo|
|00000fc0| 6c 64 65 72 46 6c 61 67 | 73 20 28 66 29 04 65 6c |lderFlag|s (f).el|
|00000fd0| 73 65 14 78 20 3d 20 47 | 65 74 46 69 6c 65 46 6c |se.x = G|etFileFl|
|00000fe0| 61 67 73 20 28 66 29 03 | 65 6e 64 0d 69 66 20 78 |ags (f).|end.if x|
|00000ff0| 20 3c 20 30 20 74 68 65 | 6e 11 73 20 3d 20 73 20 | < 0 the|n.s = s |
|00001000| 2b 20 22 3c 45 72 72 6f | 72 3e 22 04 65 6c 73 65 |+ "<Erro|r>".else|
|00001010| 39 69 66 20 49 73 42 69 | 74 53 65 74 20 28 78 2c |9if IsBi|tSet (x,|
|00001020| 20 31 35 29 20 74 68 65 | 6e 20 2f 2f 20 74 68 69 | 15) the|n // thi|
|00001030| 73 20 69 73 20 6f 6e 65 | 20 77 61 79 20 74 6f 20 |s is one| way to |
|00001040| 74 65 73 74 20 61 20 62 | 69 74 12 73 20 3d 20 73 |test a b|it.s = s|
|00001050| 20 2b 20 22 20 69 73 41 | 6c 69 61 73 22 03 65 6e | + " isA|lias".en|
|00001060| 64 8a 01 69 66 20 42 69 | 74 77 69 73 65 41 6e 64 |d..if Bi|twiseAnd|
|00001070| 20 28 78 2c 20 26 48 34 | 30 30 30 29 20 3c 3e 20 | (x, &H4|000) <> |
|00001080| 30 20 74 68 65 6e 20 2f | 2f 20 74 68 69 73 20 69 |0 then /|/ this i|
|00001090| 73 20 74 68 65 20 6f 74 | 68 65 72 20 77 61 79 20 |s the ot|her way |
|000010a0| 74 6f 20 74 65 73 74 20 | 61 20 62 69 74 16 73 20 |to test |a bit.s |
|000010b0| 3d 20 73 20 2b 20 22 20 | 69 73 49 6e 76 69 73 69 |= s + " |isInvisi|
|000010c0| 62 6c 65 22 03 65 6e 64 | 23 69 66 20 42 69 74 77 |ble".end|#if Bitw|
|000010d0| 69 73 65 41 6e 64 20 28 | 78 2c 20 26 48 32 30 30 |iseAnd (|x, &H200|
|000010e0| 30 29 20 3c 3e 20 30 20 | 74 68 65 6e 14 73 20 3d |0) <> 0 |then.s =|
|000010f0| 20 73 20 2b 20 22 20 68 | 61 73 42 75 6e 64 6c 65 | s + " h|asBundle|
|00001100| 22 03 65 6e 64 23 69 66 | 20 42 69 74 77 69 73 65 |".end#if| Bitwise|
|00001110| 41 6e 64 20 28 78 2c 20 | 26 48 30 38 30 30 29 20 |And (x, |&H0800) |
|00001120| 3c 3e 20 30 20 74 68 65 | 6e 17 73 20 3d 20 73 20 |<> 0 the|n.s = s |
|00001130| 2b 20 22 20 69 73 53 74 | 61 74 69 6f 6e 61 72 79 |+ " isSt|ationary|
|00001140| 22 03 65 6e 64 17 69 66 | 20 49 73 42 69 74 53 65 |".end.if| IsBitSe|
|00001150| 74 20 28 78 2c 20 38 29 | 20 74 68 65 6e 18 73 20 |t (x, 8)| then.s |
|00001160| 3d 20 73 20 2b 20 22 20 | 68 61 73 42 65 65 6e 49 |= s + " |hasBeenI|
|00001170| 6e 69 74 65 64 22 03 65 | 6e 64 03 65 6e 64 0f 73 |nited".e|nd.end.s|
|00001180| 20 3d 20 73 20 2b 20 63 | 68 72 28 31 33 29 00 1a | = s + c|hr(13)..|
|00001190| 73 20 3d 20 73 20 2b 20 | 22 49 73 20 6f 70 65 6e |s = s + |"Is open|
|000011a0| 20 28 62 75 73 79 29 3a | 20 22 16 69 66 20 49 73 | (busy):| ".if Is|
|000011b0| 46 69 6c 65 4f 70 65 6e | 20 28 66 29 20 74 68 65 |FileOpen| (f) the|
|000011c0| 6e 15 73 20 3d 20 73 20 | 2b 20 22 59 65 73 20 28 |n.s = s |+ "Yes (|
|000011d0| 66 6f 72 6b 73 3a 22 30 | 2f 2f 20 69 66 20 6f 70 |forks:"0|// if op|
|000011e0| 65 6e 2c 20 6c 65 74 27 | 73 20 61 6c 73 6f 20 73 |en, let'|s also s|
|000011f0| 65 65 20 77 68 69 63 68 | 20 66 6f 72 6b 73 20 61 |ee which| forks a|
|00001200| 72 65 20 6f 70 65 6e 3a | 18 69 20 3d 20 47 65 74 |re open:|.i = Get|
|00001210| 46 69 6c 65 41 74 74 72 | 69 62 75 74 65 20 28 66 |FileAttr|ibute (f|
|00001220| 29 1a 72 73 72 63 4f 70 | 65 6e 20 3d 20 49 73 42 |).rsrcOp|en = IsB|
|00001230| 69 74 53 65 74 20 28 69 | 2c 20 32 29 2a 69 66 20 |itSet (i|, 2)*if |
|00001240| 72 73 72 63 4f 70 65 6e | 20 3c 3e 20 49 73 52 65 |rsrcOpen| <> IsRe|
|00001250| 73 6f 75 72 63 65 46 6f | 72 6b 4f 70 65 6e 20 28 |sourceFo|rkOpen (|
|00001260| 66 29 20 74 68 65 6e 31 | 6d 73 67 42 6f 78 20 22 |f) then1|msgBox "|
|00001270| 4f 6f 70 73 20 2d 20 73 | 6f 6d 65 74 68 69 6e 67 |Oops - s|omething|
|00001280| 20 69 73 20 6e 6f 74 20 | 61 73 20 69 74 20 73 68 | is not |as it sh|
|00001290| 6f 75 6c 64 20 62 65 21 | 22 03 65 6e 64 10 69 66 |ould be!|".end.if|
|000012a0| 20 72 73 72 63 4f 70 65 | 6e 20 74 68 65 6e 0f 73 | rsrcOpe|n then.s|
|000012b0| 20 3d 20 73 20 2b 20 22 | 20 72 73 72 63 22 03 65 | = s + "| rsrc".e|
|000012c0| 6e 64 2e 69 66 20 49 73 | 42 69 74 53 65 74 20 28 |nd.if Is|BitSet (|
|000012d0| 69 2c 20 33 29 20 74 68 | 65 6e 20 2f 2f 20 63 68 |i, 3) th|en // ch|
|000012e0| 65 63 6b 20 74 68 65 20 | 64 61 74 61 20 66 6f 72 |eck the |data for|
|000012f0| 6b 0f 73 20 3d 20 73 20 | 2b 20 22 20 64 61 74 61 |k.s = s |+ " data|
|00001300| 22 03 65 6e 64 0b 73 20 | 3d 20 73 20 2b 20 22 29 |".end.s |= s + ")|
|00001310| 22 04 65 6c 73 65 0c 73 | 20 3d 20 73 20 2b 20 22 |".else.s| = s + "|
|00001320| 4e 6f 22 03 65 6e 64 00 | 11 49 6e 66 6f 74 65 78 |No".end.|.Infotex|
|00001330| 74 2e 74 65 78 74 20 3d | 20 73 00 30 2f 2f 20 6e |t.text =| s.0// n|
|00001340| 6f 77 20 77 65 20 63 6c | 65 61 72 20 61 20 66 6c |ow we cl|ear a fl|
|00001350| 61 67 20 28 74 68 65 20 | 22 69 6e 69 74 65 64 22 |ag (the |"inited"|
|00001360| 20 66 6c 61 67 2c 20 77 | 68 69 63 68 3a 2f 2f 20 | flag, w|hich:// |
|00001370| 63 61 75 73 65 73 20 74 | 68 65 20 46 69 6e 64 65 |causes t|he Finde|
|00001380| 72 20 74 6f 20 72 65 70 | 6f 73 69 74 69 6f 6e 20 |r to rep|osition |
|00001390| 74 68 65 20 69 74 65 6d | 20 69 6e 20 69 74 73 20 |the item| in its |
|000013a0| 77 69 6e 64 6f 77 29 13 | 69 66 20 66 2e 64 69 72 |window).|if f.dir|
|000013b0| 65 63 74 6f 72 79 20 74 | 68 65 6e 16 78 20 3d 20 |ectory t|hen.x = |
|000013c0| 47 65 74 46 6f 6c 64 65 | 72 46 6c 61 67 73 20 28 |GetFolde|rFlags (|
|000013d0| 66 29 8f 01 78 20 3d 20 | 53 65 74 42 69 74 28 78 |f)..x = |SetBit(x|
|000013e0| 2c 20 38 2c 20 66 61 6c | 73 65 29 20 2f 2f 20 74 |, 8, fal|se) // t|
|000013f0| 68 69 73 20 63 6c 65 61 | 72 73 20 62 69 74 20 38 |his clea|rs bit 8|
|00001400| 2c 20 77 68 69 63 68 20 | 69 73 20 74 68 65 20 22 |, which |is the "|
|00001410| 68 61 73 42 65 65 6e 49 | 6e 69 74 65 64 22 20 66 |hasBeenI|nited" f|
|00001420| 6c 61 67 1b 65 72 72 20 | 3d 20 53 65 74 46 6f 6c |lag.err |= SetFol|
|00001430| 64 65 72 46 6c 61 67 73 | 20 28 66 2c 20 78 29 04 |derFlags| (f, x).|
|00001440| 65 6c 73 65 14 78 20 3d | 20 47 65 74 46 69 6c 65 |else.x =| GetFile|
|00001450| 46 6c 61 67 73 20 28 66 | 29 8f 01 78 20 3d 20 53 |Flags (f|)..x = S|
|00001460| 65 74 42 69 74 28 78 2c | 20 38 2c 20 66 61 6c 73 |etBit(x,| 8, fals|
|00001470| 65 29 20 2f 2f 20 74 68 | 69 73 20 63 6c 65 61 72 |e) // th|is clear|
|00001480| 73 20 62 69 74 20 38 2c | 20 77 68 69 63 68 20 69 |s bit 8,| which i|
|00001490| 73 20 74 68 65 20 22 68 | 61 73 42 65 65 6e 49 6e |s the "h|asBeenIn|
|000014a0| 69 74 65 64 22 20 66 6c | 61 67 19 65 72 72 20 3d |ited" fl|ag.err =|
|000014b0| 20 53 65 74 46 69 6c 65 | 46 6c 61 67 73 20 28 66 | SetFile|Flags (f|
|000014c0| 2c 20 78 29 03 65 6e 64 | 10 69 66 20 65 72 72 20 |, x).end|.if err |
|000014d0| 3c 3e 20 30 20 74 68 65 | 6e 84 01 6d 73 67 42 6f |<> 0 the|n..msgBo|
|000014e0| 78 20 22 6f 6f 70 73 2c | 20 53 65 74 2e 2e 2e 46 |x "oops,| Set...F|
|000014f0| 6c 61 67 73 28 29 20 64 | 69 64 6e 27 74 20 77 6f |lags() d|idn't wo|
|00001500| 72 6b 2c 20 65 72 72 6f | 72 20 63 6f 64 65 20 69 |rk, erro|r code i|
|00001510| 73 3a 20 22 20 2b 20 73 | 74 72 28 65 72 72 29 03 |s: " + s|tr(err).|
|00001520| 65 6e 64 00 88 01 2f 2f | 20 66 69 6e 61 6c 6c 79 |end...//| finally|
|00001530| 2c 20 6c 65 74 27 73 20 | 73 65 65 20 69 66 20 77 |, let's |see if w|
|00001540| 65 20 63 61 6e 20 69 64 | 65 6e 74 69 66 79 20 74 |e can id|entify t|
|00001550| 68 65 20 76 6f 6c 75 6d | 65 20 77 69 74 68 6f 75 |he volum|e withou|
|00001560| 74 20 74 68 65 20 76 52 | 65 66 4e 75 6d 3a 0d 66 |t the vR|efNum:.f|
|00001570| 6f 75 6e 64 20 3d 20 66 | 61 6c 73 65 1a 66 6f 72 |ound = f|alse.for|
|00001580| 20 69 20 3d 20 30 20 74 | 6f 20 56 6f 6c 75 6d 65 | i = 0 t|o Volume|
|00001590| 43 6f 75 6e 74 2d 31 0f | 76 32 20 3d 20 56 6f 6c |Count-1.|v2 = Vol|
|000015a0| 75 6d 65 20 28 69 29 1a | 69 66 20 76 32 2e 6e 61 |ume (i).|if v2.na|
|000015b0| 6d 65 20 3d 20 76 6f 6c | 2e 6e 61 6d 65 20 74 68 |me = vol|.name th|
|000015c0| 65 6e 36 2f 2f 20 6e 61 | 6d 65 73 20 61 72 65 20 |en6// na|mes are |
|000015d0| 69 64 65 6e 74 69 63 61 | 6c 2c 20 62 75 74 20 77 |identica|l, but w|
|000015e0| 65 20 73 68 6f 75 6c 64 | 20 61 6c 73 6f 20 63 6f |e should| also co|
|000015f0| 6d 70 61 72 65 20 74 68 | 65 39 2f 2f 20 76 6f 6c |mpare th|e9// vol|
|00001600| 75 6d 65 20 63 72 65 61 | 74 69 6f 6e 20 64 61 74 |ume crea|tion dat|
|00001610| 65 20 69 6e 20 63 61 73 | 65 20 74 68 65 72 65 27 |e in cas|e there'|
|00001620| 73 20 6d 6f 72 65 20 74 | 68 61 6e 20 6f 6e 65 20 |s more t|han one |
|00001630| 76 6f 6c 3b 2f 2f 20 77 | 69 74 68 20 74 68 65 20 |vol;// w|ith the |
|00001640| 73 61 6d 65 20 6e 61 6d | 65 20 6d 6f 75 6e 74 65 |same nam|e mounte|
|00001650| 64 20 28 77 68 69 63 68 | 20 69 73 20 70 6f 73 73 |d (which| is poss|
|00001660| 69 62 6c 65 20 6f 6e 20 | 61 20 4d 61 63 21 29 84 |ible on |a Mac!).|
|00001670| 01 69 66 20 76 32 2e 43 | 72 65 61 74 69 6f 6e 44 |.if v2.C|reationD|
|00001680| 61 74 65 2e 74 6f 74 61 | 6c 53 65 63 6f 6e 64 73 |ate.tota|lSeconds|
|00001690| 20 3d 20 76 6f 6c 2e 43 | 72 65 61 74 69 6f 6e 44 | = vol.C|reationD|
|000016a0| 61 74 65 2e 74 6f 74 61 | 6c 53 65 63 6f 6e 64 73 |ate.tota|lSeconds|
|000016b0| 20 74 68 65 6e 26 2f 2f | 20 79 65 73 2c 20 74 68 | then&//| yes, th|
|000016c0| 61 74 20 73 65 65 6d 73 | 20 74 6f 20 62 65 20 74 |at seems| to be t|
|000016d0| 68 65 20 72 69 67 68 74 | 20 6f 6e 65 0c 66 6f 75 |he right| one.fou|
|000016e0| 6e 64 20 3d 20 74 72 75 | 65 03 65 6e 64 03 65 6e |nd = tru|e.end.en|
|000016f0| 64 04 6e 65 78 74 11 69 | 66 20 6e 6f 74 20 66 6f |d.next.i|f not fo|
|00001700| 75 6e 64 20 74 68 65 6e | 28 6d 73 67 42 6f 78 20 |und then|(msgBox |
|00001710| 22 4f 6f 70 73 20 2d 20 | 49 20 63 61 6e 27 74 20 |"Oops - |I can't |
|00001720| 66 69 6e 64 20 74 68 65 | 20 76 6f 6c 75 6d 65 21 |find the| volume!|
|00001730| 22 03 65 6e 64 00 11 54 | 65 73 74 4e 65 77 46 6f |".end..T|estNewFo|
|00001740| 6c 64 65 72 49 74 65 6d | 00 07 45 6e 64 20 53 75 |lderItem|..End Su|
|00001750| 62 11 54 65 73 74 4e 65 | 77 46 6f 6c 64 65 72 49 |b.TestNe|wFolderI|
|00001760| 74 65 6d 00 00 00 05 03 | 05 03 07 17 53 75 62 20 |tem.....|....Sub |
|00001770| 54 65 73 74 4e 65 77 46 | 6f 6c 64 65 72 49 74 65 |TestNewF|olderIte|
|00001780| 6d 28 29 13 44 69 6d 20 | 66 20 61 73 20 46 6f 6c |m().Dim |f as Fol|
|00001790| 64 65 72 49 74 65 6d 2a | 66 20 3d 20 4e 65 77 46 |derItem*|f = NewF|
|000017a0| 6f 6c 64 65 72 49 74 65 | 6d 28 2d 31 2c 20 32 2c |olderIte|m(-1, 2,|
|000017b0| 20 22 44 65 73 6b 74 6f | 70 20 46 6f 6c 64 65 72 | "Deskto|p Folder|
|000017c0| 22 29 14 69 66 20 6e 6f | 74 20 66 2e 65 78 69 73 |").if no|t f.exis|
|000017d0| 74 73 20 74 68 65 6e 2b | 6d 73 67 42 6f 78 20 22 |ts then+|msgBox "|
|000017e0| 4f 6f 70 73 20 2d 20 77 | 68 65 72 65 27 73 20 74 |Oops - w|here's t|
|000017f0| 68 65 20 64 65 73 6b 74 | 6f 70 20 66 6f 6c 64 65 |he deskt|op folde|
|00001800| 72 3f 22 03 65 6e 64 07 | 45 6e 64 20 53 75 62 00 |r?".end.|End Sub.|
|00001810| 06 0f 45 6e 61 62 6c 65 | 4d 65 6e 75 49 74 65 6d |..Enable|MenuItem|
|00001820| 73 02 1f 02 1f 04 15 53 | 75 62 20 45 6e 61 62 6c |s......S|ub Enabl|
|00001830| 65 4d 65 6e 75 49 74 65 | 6d 73 28 29 17 46 69 6c |eMenuIte|ms().Fil|
|00001840| 65 4f 70 65 6e 2e 65 6e | 61 62 6c 65 64 20 3d 20 |eOpen.en|abled = |
|00001850| 74 72 75 65 1f 46 69 6c | 65 53 65 6c 65 63 74 46 |true.Fil|eSelectF|
|00001860| 6f 6c 64 65 72 2e 65 6e | 61 62 6c 65 64 20 3d 20 |older.en|abled = |
|00001870| 74 72 75 65 07 45 6e 64 | 20 53 75 62 0a 44 72 6f |true.End| Sub.Dro|
|00001880| 70 4f 62 6a 65 63 74 01 | 00 01 00 05 1f 53 75 62 |pObject.|.....Sub|
|00001890| 20 44 72 6f 70 4f 62 6a | 65 63 74 28 6f 62 6a 20 | DropObj|ect(obj |
|000018a0| 41 73 20 44 72 61 67 49 | 74 65 6d 29 1f 69 66 20 |As DragI|tem).if |
|000018b0| 6f 62 6a 2e 46 6f 6c 64 | 65 72 49 74 65 6d 41 76 |obj.Fold|erItemAv|
|000018c0| 61 69 6c 61 62 6c 65 20 | 74 68 65 6e 17 44 65 6d |ailable |then.Dem|
|000018d0| 6f 49 74 20 28 6f 62 6a | 2e 46 6f 6c 64 65 72 49 |oIt (obj|.FolderI|
|000018e0| 74 65 6d 29 03 65 6e 64 | 07 45 6e 64 20 53 75 62 |tem).end|.End Sub|
|000018f0| 07 4d 6f 75 73 65 55 70 | 03 10 03 10 06 27 53 75 |.MouseUp|.....'Su|
|00001900| 62 20 4d 6f 75 73 65 55 | 70 28 58 20 41 73 20 49 |b MouseU|p(X As I|
|00001910| 6e 74 65 67 65 72 2c 20 | 59 20 41 73 20 49 6e 74 |nteger, |Y As Int|
|00001920| 65 67 65 72 29 1c 75 72 | 6c 2e 74 65 78 74 63 6f |eger).ur|l.textco|
|00001930| 6c 6f 72 20 3d 20 52 47 | 42 28 30 2c 30 2c 32 35 |lor = RG|B(0,0,25|
|00001940| 35 29 92 01 69 66 20 78 | 3e 75 72 6c 2e 6c 65 66 |5)..if x|>url.lef|
|00001950| 74 20 61 6e 64 20 78 3c | 75 72 6c 2e 6c 65 66 74 |t and x<|url.left|
|00001960| 2b 75 72 6c 2e 77 69 64 | 74 68 20 61 6e 64 20 79 |+url.wid|th and y|
|00001970| 3e 75 72 6c 2e 74 6f 70 | 20 61 6e 64 20 79 3c 75 |>url.top| and y<u|
|00001980| 72 6c 2e 74 6f 70 2b 75 | 72 6c 2e 68 65 69 67 68 |rl.top+u|rl.heigh|
|00001990| 74 20 74 68 65 6e 10 53 | 68 6f 77 55 52 4c 20 75 |t then.S|howURL u|
|000019a0| 72 6c 2e 74 65 78 74 06 | 65 6e 64 20 69 66 07 45 |rl.text.|end if.E|
|000019b0| 6e 64 20 53 75 62 09 4d | 6f 75 73 65 44 72 61 67 |nd Sub.M|ouseDrag|
|000019c0| 01 00 05 06 07 29 53 75 | 62 20 4d 6f 75 73 65 44 |.....)Su|b MouseD|
|000019d0| 72 61 67 28 58 20 41 73 | 20 49 6e 74 65 67 65 72 |rag(X As| Integer|
|000019e0| 2c 20 59 20 41 73 20 49 | 6e 74 65 67 65 72 29 92 |, Y As I|nteger).|
|000019f0| 01 69 66 20 78 3e 75 72 | 6c 2e 6c 65 66 74 20 61 |.if x>ur|l.left a|
|00001a00| 6e 64 20 78 3c 75 72 6c | 2e 6c 65 66 74 2b 75 72 |nd x<url|.left+ur|
|00001a10| 6c 2e 77 69 64 74 68 20 | 61 6e 64 20 79 3e 75 72 |l.width |and y>ur|
|00001a20| 6c 2e 74 6f 70 20 61 6e | 64 20 79 3c 75 72 6c 2e |l.top an|d y<url.|
|00001a30| 74 6f 70 2b 75 72 6c 2e | 68 65 69 67 68 74 20 74 |top+url.|height t|
|00001a40| 68 65 6e 1c 75 72 6c 2e | 74 65 78 74 63 6f 6c 6f |hen.url.|textcolo|
|00001a50| 72 20 3d 20 52 47 42 28 | 32 35 35 2c 30 2c 30 29 |r = RGB(|255,0,0)|
|00001a60| 04 65 6c 73 65 1c 75 72 | 6c 2e 74 65 78 74 63 6f |.else.ur|l.textco|
|00001a70| 6c 6f 72 20 3d 20 52 47 | 42 28 30 2c 30 2c 32 35 |lor = RG|B(0,0,25|
|00001a80| 35 29 06 65 6e 64 20 69 | 66 07 45 6e 64 20 53 75 |5).end i|f.End Su|
|00001a90| 62 09 4d 6f 75 73 65 44 | 6f 77 6e 01 00 04 06 06 |b.MouseD|own.....|
|00001aa0| 39 46 75 6e 63 74 69 6f | 6e 20 4d 6f 75 73 65 44 |9Functio|n MouseD|
|00001ab0| 6f 77 6e 28 58 20 41 73 | 20 49 6e 74 65 67 65 72 |own(X As| Integer|
|00001ac0| 2c 20 59 20 41 73 20 49 | 6e 74 65 67 65 72 29 20 |, Y As I|nteger) |
|00001ad0| 41 73 20 42 6f 6f 6c 65 | 61 6e 92 01 69 66 20 78 |As Boole|an..if x|
|00001ae0| 3e 75 72 6c 2e 6c 65 66 | 74 20 61 6e 64 20 78 3c |>url.lef|t and x<|
|00001af0| 75 72 6c 2e 6c 65 66 74 | 2b 75 72 6c 2e 77 69 64 |url.left|+url.wid|
|00001b00| 74 68 20 61 6e 64 20 79 | 3e 75 72 6c 2e 74 6f 70 |th and y|>url.top|
|00001b10| 20 61 6e 64 20 79 3c 75 | 72 6c 2e 74 6f 70 2b 75 | and y<u|rl.top+u|
|00001b20| 72 6c 2e 68 65 69 67 68 | 74 20 74 68 65 6e 1c 75 |rl.heigh|t then.u|
|00001b30| 72 6c 2e 74 65 78 74 63 | 6f 6c 6f 72 20 3d 20 52 |rl.textc|olor = R|
|00001b40| 47 42 28 32 35 35 2c 30 | 2c 30 29 0b 72 65 74 75 |GB(255,0|,0).retu|
|00001b50| 72 6e 20 74 72 75 65 06 | 65 6e 64 20 69 66 0c 45 |rn true.|end if.E|
|00001b60| 6e 64 20 46 75 6e 63 74 | 69 6f 6e 04 4f 70 65 6e |nd Funct|ion.Open|
|00001b70| 01 18 01 18 03 0a 53 75 | 62 20 4f 70 65 6e 28 29 |......Su|b Open()|
|00001b80| 18 41 63 63 65 70 74 46 | 69 6c 65 44 72 6f 70 20 |.AcceptF|ileDrop |
|00001b90| 22 41 6e 79 46 69 6c 65 | 22 07 45 6e 64 20 53 75 |"AnyFile|".End Su|
|00001ba0| 62 02 08 46 69 6c 65 4f | 70 65 6e 02 16 02 16 07 |b..FileO|pen.....|
|00001bb0| 1a 46 75 6e 63 74 69 6f | 6e 20 41 63 74 69 6f 6e |.Functio|n Action|
|00001bc0| 20 41 73 20 42 6f 6f 6c | 65 61 6e 13 44 69 6d 20 | As Bool|ean.Dim |
|00001bd0| 66 20 41 73 20 46 6f 6c | 64 65 72 49 74 65 6d 1e |f As Fol|derItem.|
|00001be0| 66 3d 47 65 74 4f 70 65 | 6e 46 6f 6c 64 65 72 49 |f=GetOpe|nFolderI|
|00001bf0| 74 65 6d 28 22 41 6e 79 | 46 69 6c 65 22 29 0e 69 |tem("Any|File").i|
|00001c00| 66 20 66 3c 3e 6e 69 6c | 20 74 68 65 6e 0a 44 65 |f f<>nil| then.De|
|00001c10| 6d 6f 49 74 20 28 66 29 | 06 65 6e 64 20 69 66 0c |moIt (f)|.end if.|
|00001c20| 45 6e 64 20 46 75 6e 63 | 74 69 6f 6e 10 46 69 6c |End Func|tion.Fil|
|00001c30| 65 53 65 6c 65 63 74 46 | 6f 6c 64 65 72 04 0a 04 |eSelectF|older...|
|00001c40| 00 07 1a 46 75 6e 63 74 | 69 6f 6e 20 41 63 74 69 |...Funct|ion Acti|
|00001c50| 6f 6e 20 41 73 20 42 6f | 6f 6c 65 61 6e 13 44 69 |on As Bo|olean.Di|
|00001c60| 6d 20 66 20 61 73 20 46 | 6f 6c 64 65 72 69 74 65 |m f as F|olderite|
|00001c70| 6d 0e 66 3d 53 65 6c 65 | 63 74 46 6f 6c 64 65 72 |m.f=Sele|ctFolder|
|00001c80| 0f 49 66 20 66 3c 3e 20 | 4e 69 6c 20 54 68 65 6e |.If f<> |Nil Then|
|00001c90| 0a 44 65 6d 6f 49 74 20 | 28 66 29 06 45 6e 64 20 |.DemoIt |(f).End |
|00001ca0| 49 66 0c 45 6e 64 20 46 | 75 6e 63 74 69 6f 6e 00 |If.End F|unction.|
|00001cb0| 05 07 00 00 b4 01 0a 53 | 74 61 74 69 63 54 65 78 |.......S|taticTex|
|00001cc0| 74 00 00 00 00 01 09 4d | 6f 75 73 65 4d 6f 76 65 |t......M|ouseMove|
|00001cd0| 01 00 01 00 03 29 53 75 | 62 20 4d 6f 75 73 65 4d |.....)Su|b MouseM|
|00001ce0| 6f 76 65 28 58 20 41 73 | 20 49 6e 74 65 67 65 72 |ove(X As| Integer|
|00001cf0| 2c 20 59 20 41 73 20 49 | 6e 74 65 67 65 72 29 00 |, Y As I|nteger).|
|00001d00| 07 45 6e 64 20 53 75 62 | 00 00 07 00 00 b4 01 0a |.End Sub|........|
|00001d10| 53 74 61 74 69 63 54 65 | 78 74 00 00 00 00 00 00 |StaticTe|xt......|
|00001d20| 00 07 00 00 b4 01 0a 53 | 74 61 74 69 63 54 65 78 |.......S|taticTex|
|00001d30| 74 00 00 00 00 00 00 00 | 07 00 00 b4 01 0a 53 74 |t.......|......St|
|00001d40| 61 74 69 63 54 65 78 74 | 00 00 00 00 00 00 00 07 |aticText|........|
|00001d50| 00 00 b4 01 0a 53 74 61 | 74 69 63 54 65 78 74 00 |.....Sta|ticText.|
|00001d60| 00 00 00 01 09 4d 6f 75 | 73 65 4d 6f 76 65 01 00 |.....Mou|seMove..|
|00001d70| 01 00 03 29 53 75 62 20 | 4d 6f 75 73 65 4d 6f 76 |...)Sub |MouseMov|
|00001d80| 65 28 58 20 41 73 20 49 | 6e 74 65 67 65 72 2c 20 |e(X As I|nteger, |
|00001d90| 59 20 41 73 20 49 6e 74 | 65 67 65 72 29 00 07 45 |Y As Int|eger)..E|
|00001da0| 6e 64 20 53 75 62 00 00 | 05 0a 53 74 61 74 69 63 |nd Sub..|..Static|
|00001db0| 54 65 78 74 17 04 4e 61 | 6d 65 07 54 65 78 74 42 |Text..Na|me.TextB|
|00001dc0| 6f 78 05 49 6e 64 65 78 | 0b 2d 32 31 34 37 34 38 |ox.Index|.-214748|
|00001dd0| 33 36 34 38 0d 54 61 62 | 50 61 6e 65 6c 49 6e 64 |3648.Tab|PanelInd|
|00001de0| 65 78 01 30 07 56 69 73 | 69 62 6c 65 04 54 72 75 |ex.0.Vis|ible.Tru|
|00001df0| 65 04 4c 65 66 74 02 31 | 33 03 54 6f 70 01 39 05 |e.Left.1|3.Top.9.|
|00001e00| 57 69 64 74 68 03 32 33 | 33 06 48 65 69 67 68 74 |Width.23|3.Height|
|00001e10| 02 31 36 0b 42 61 6c 6c | 6f 6f 6e 48 65 6c 70 00 |.16.Ball|oonHelp.|
|00001e20| 13 44 69 73 61 62 6c 65 | 64 42 61 6c 6c 6f 6f 6e |.Disable|dBalloon|
|00001e30| 48 65 6c 70 00 08 4c 6f | 63 6b 4c 65 66 74 05 46 |Help..Lo|ckLeft.F|
|00001e40| 61 6c 73 65 07 4c 6f 63 | 6b 54 6f 70 05 46 61 6c |alse.Loc|kTop.Fal|
|00001e50| 73 65 09 4c 6f 63 6b 52 | 69 67 68 74 05 46 61 6c |se.LockR|ight.Fal|
|00001e60| 73 65 0a 4c 6f 63 6b 42 | 6f 74 74 6f 6d 05 46 61 |se.LockB|ottom.Fa|
|00001e70| 6c 73 65 08 54 65 78 74 | 46 6f 6e 74 06 47 65 6e |lse.Text|Font.Gen|
|00001e80| 65 76 61 08 54 65 78 74 | 53 69 7a 65 01 39 04 42 |eva.Text|Size.9.B|
|00001e90| 6f 6c 64 05 46 61 6c 73 | 65 06 49 74 61 6c 69 63 |old.Fals|e.Italic|
|00001ea0| 05 46 61 6c 73 65 09 55 | 6e 64 65 72 6c 69 6e 65 |.False.U|nderline|
|00001eb0| 05 46 61 6c 73 65 04 54 | 65 78 74 2d 44 65 6d 6f |.False.T|ext-Demo|
|00001ec0| 20 66 6f 72 20 46 69 6c | 65 4d 67 72 2d 50 6c 75 | for Fil|eMgr-Plu|
|00001ed0| 67 69 6e 2e 20 42 79 20 | 54 68 6f 6d 61 73 20 54 |gin. By |Thomas T|
|00001ee0| 65 6d 70 65 6c 6d 61 6e | 6e 09 54 65 78 74 41 6c |empelman|n.TextAl|
|00001ef0| 69 67 6e 01 30 09 54 65 | 78 74 43 6f 6c 6f 72 01 |ign.0.Te|xtColor.|
|00001f00| 30 09 4d 75 6c 74 69 4c | 69 6e 65 04 54 72 75 65 |0.MultiL|ine.True|
|00001f10| 00 0a 53 74 61 74 69 63 | 54 65 78 74 17 04 4e 61 |..Static|Text..Na|
|00001f20| 6d 65 0b 53 74 61 74 69 | 63 54 65 78 74 32 05 49 |me.Stati|cText2.I|
|00001f30| 6e 64 65 78 0b 2d 32 31 | 34 37 34 38 33 36 34 38 |ndex.-21|47483648|
|00001f40| 0d 54 61 62 50 61 6e 65 | 6c 49 6e 64 65 78 01 30 |.TabPane|lIndex.0|
|00001f50| 07 56 69 73 69 62 6c 65 | 04 54 72 75 65 04 4c 65 |.Visible|.True.Le|
|00001f60| 66 74 02 31 33 03 54 6f | 70 03 31 37 38 05 57 69 |ft.13.To|p.178.Wi|
|00001f70| 64 74 68 03 31 37 30 06 | 48 65 69 67 68 74 02 31 |dth.170.|Height.1|
|00001f80| 36 0b 42 61 6c 6c 6f 6f | 6e 48 65 6c 70 00 13 44 |6.Balloo|nHelp..D|
|00001f90| 69 73 61 62 6c 65 64 42 | 61 6c 6c 6f 6f 6e 48 65 |isabledB|alloonHe|
|00001fa0| 6c 70 00 08 4c 6f 63 6b | 4c 65 66 74 05 46 61 6c |lp..Lock|Left.Fal|
|00001fb0| 73 65 07 4c 6f 63 6b 54 | 6f 70 05 46 61 6c 73 65 |se.LockT|op.False|
|00001fc0| 09 4c 6f 63 6b 52 69 67 | 68 74 05 46 61 6c 73 65 |.LockRig|ht.False|
|00001fd0| 0a 4c 6f 63 6b 42 6f 74 | 74 6f 6d 04 54 72 75 65 |.LockBot|tom.True|
|00001fe0| 08 54 65 78 74 46 6f 6e | 74 06 47 65 6e 65 76 61 |.TextFon|t.Geneva|
|00001ff0| 08 54 65 78 74 53 69 7a | 65 01 39 04 42 6f 6c 64 |.TextSiz|e.9.Bold|
|00002000| 05 46 61 6c 73 65 06 49 | 74 61 6c 69 63 05 46 61 |.False.I|talic.Fa|
|00002010| 6c 73 65 09 55 6e 64 65 | 72 6c 69 6e 65 05 46 61 |lse.Unde|rline.Fa|
|00002020| 6c 73 65 04 54 65 78 74 | 24 56 69 73 69 74 20 6d |lse.Text|$Visit m|
|00002030| 79 20 52 45 41 4c 62 61 | 73 69 63 20 72 65 6c 61 |y REALba|sic rela|
|00002040| 74 65 64 20 57 65 62 20 | 53 69 74 65 3a 09 54 65 |ted Web |Site:.Te|
|00002050| 78 74 41 6c 69 67 6e 01 | 30 09 54 65 78 74 43 6f |xtAlign.|0.TextCo|
|00002060| 6c 6f 72 01 30 09 4d 75 | 6c 74 69 4c 69 6e 65 05 |lor.0.Mu|ltiLine.|
|00002070| 46 61 6c 73 65 01 0a 53 | 74 61 74 69 63 54 65 78 |False..S|taticTex|
|00002080| 74 17 04 4e 61 6d 65 03 | 75 72 6c 05 49 6e 64 65 |t..Name.|url.Inde|
|00002090| 78 0b 2d 32 31 34 37 34 | 38 33 36 34 38 0d 54 61 |x.-21474|83648.Ta|
|000020a0| 62 50 61 6e 65 6c 49 6e | 64 65 78 01 30 07 56 69 |bPanelIn|dex.0.Vi|
|000020b0| 73 69 62 6c 65 04 54 72 | 75 65 04 4c 65 66 74 03 |sible.Tr|ue.Left.|
|000020c0| 31 38 36 03 54 6f 70 03 | 31 37 38 05 57 69 64 74 |186.Top.|178.Widt|
|000020d0| 68 03 31 32 38 06 48 65 | 69 67 68 74 02 31 36 0b |h.128.He|ight.16.|
|000020e0| 42 61 6c 6c 6f 6f 6e 48 | 65 6c 70 00 13 44 69 73 |BalloonH|elp..Dis|
|000020f0| 61 62 6c 65 64 42 61 6c | 6c 6f 6f 6e 48 65 6c 70 |abledBal|loonHelp|
|00002100| 00 08 4c 6f 63 6b 4c 65 | 66 74 05 46 61 6c 73 65 |..LockLe|ft.False|
|00002110| 07 4c 6f 63 6b 54 6f 70 | 05 46 61 6c 73 65 09 4c |.LockTop|.False.L|
|00002120| 6f 63 6b 52 69 67 68 74 | 05 46 61 6c 73 65 0a 4c |ockRight|.False.L|
|00002130| 6f 63 6b 42 6f 74 74 6f | 6d 04 54 72 75 65 08 54 |ockBotto|m.True.T|
|00002140| 65 78 74 46 6f 6e 74 06 | 47 65 6e 65 76 61 08 54 |extFont.|Geneva.T|
|00002150| 65 78 74 53 69 7a 65 01 | 39 04 42 6f 6c 64 05 46 |extSize.|9.Bold.F|
|00002160| 61 6c 73 65 06 49 74 61 | 6c 69 63 05 46 61 6c 73 |alse.Ita|lic.Fals|
|00002170| 65 09 55 6e 64 65 72 6c | 69 6e 65 04 54 72 75 65 |e.Underl|ine.True|
|00002180| 04 54 65 78 74 18 68 74 | 74 70 3a 2f 2f 77 77 77 |.Text.ht|tp://www|
|00002190| 2e 74 65 6d 70 65 6c 2e | 6f 72 67 2f 72 62 09 54 |.tempel.|org/rb.T|
|000021a0| 65 78 74 41 6c 69 67 6e | 01 30 09 54 65 78 74 43 |extAlign|.0.TextC|
|000021b0| 6f 6c 6f 72 07 31 35 38 | 31 37 37 33 09 4d 75 6c |olor.158|1773.Mul|
|000021c0| 74 69 4c 69 6e 65 05 46 | 61 6c 73 65 02 0a 53 74 |tiLine.F|alse..St|
|000021d0| 61 74 69 63 54 65 78 74 | 17 04 4e 61 6d 65 0b 53 |aticText|..Name.S|
|000021e0| 74 61 74 69 63 54 65 78 | 74 31 05 49 6e 64 65 78 |taticTex|t1.Index|
|000021f0| 0b 2d 32 31 34 37 34 38 | 33 36 34 38 0d 54 61 62 |.-214748|3648.Tab|
|00002200| 50 61 6e 65 6c 49 6e 64 | 65 78 01 30 07 56 69 73 |PanelInd|ex.0.Vis|
|00002210| 69 62 6c 65 04 54 72 75 | 65 04 4c 65 66 74 02 31 |ible.Tru|e.Left.1|
|00002220| 33 03 54 6f 70 02 33 38 | 05 57 69 64 74 68 03 33 |3.Top.38|.Width.3|
|00002230| 30 31 06 48 65 69 67 68 | 74 02 31 36 0b 42 61 6c |01.Heigh|t.16.Bal|
|00002240| 6c 6f 6f 6e 48 65 6c 70 | 00 13 44 69 73 61 62 6c |loonHelp|..Disabl|
|00002250| 65 64 42 61 6c 6c 6f 6f | 6e 48 65 6c 70 00 08 4c |edBalloo|nHelp..L|
|00002260| 6f 63 6b 4c 65 66 74 05 | 46 61 6c 73 65 07 4c 6f |ockLeft.|False.Lo|
|00002270| 63 6b 54 6f 70 05 46 61 | 6c 73 65 09 4c 6f 63 6b |ckTop.Fa|lse.Lock|
|00002280| 52 69 67 68 74 05 46 61 | 6c 73 65 0a 4c 6f 63 6b |Right.Fa|lse.Lock|
|00002290| 42 6f 74 74 6f 6d 05 46 | 61 6c 73 65 08 54 65 78 |Bottom.F|alse.Tex|
|000022a0| 74 46 6f 6e 74 06 53 79 | 73 74 65 6d 08 54 65 78 |tFont.Sy|stem.Tex|
|000022b0| 74 53 69 7a 65 02 31 32 | 04 42 6f 6c 64 05 46 61 |tSize.12|.Bold.Fa|
|000022c0| 6c 73 65 06 49 74 61 6c | 69 63 05 46 61 6c 73 65 |lse.Ital|ic.False|
|000022d0| 09 55 6e 64 65 72 6c 69 | 6e 65 05 46 61 6c 73 65 |.Underli|ne.False|
|000022e0| 04 54 65 78 74 2e 44 72 | 61 67 20 61 20 66 69 6c |.Text.Dr|ag a fil|
|000022f0| 65 2c 20 66 6f 6c 64 65 | 72 20 6f 72 20 76 6f 6c |e, folde|r or vol|
|00002300| 75 6d 65 20 69 6e 74 6f | 20 74 68 69 73 20 77 69 |ume into| this wi|
|00002310| 6e 64 6f 77 09 54 65 78 | 74 41 6c 69 67 6e 01 30 |ndow.Tex|tAlign.0|
|00002320| 09 54 65 78 74 43 6f 6c | 6f 72 01 30 09 4d 75 6c |.TextCol|or.0.Mul|
|00002330| 74 69 4c 69 6e 65 05 46 | 61 6c 73 65 03 0a 53 74 |tiLine.F|alse..St|
|00002340| 61 74 69 63 54 65 78 74 | 17 04 4e 61 6d 65 08 49 |aticText|..Name.I|
|00002350| 6e 66 6f 74 65 78 74 05 | 49 6e 64 65 78 0b 2d 32 |nfotext.|Index.-2|
|00002360| 31 34 37 34 38 33 36 34 | 38 0d 54 61 62 50 61 6e |14748364|8.TabPan|
|00002370| 65 6c 49 6e 64 65 78 01 | 30 07 56 69 73 69 62 6c |elIndex.|0.Visibl|
|00002380| 65 04 54 72 75 65 04 4c | 65 66 74 02 33 30 03 54 |e.True.L|eft.30.T|
|00002390| 6f 70 02 36 36 05 57 69 | 64 74 68 03 32 36 35 06 |op.66.Wi|dth.265.|
|000023a0| 48 65 69 67 68 74 03 31 | 30 39 0b 42 61 6c 6c 6f |Height.1|09.Ballo|
|000023b0| 6f 6e 48 65 6c 70 00 13 | 44 69 73 61 62 6c 65 64 |onHelp..|Disabled|
|000023c0| 42 61 6c 6c 6f 6f 6e 48 | 65 6c 70 00 08 4c 6f 63 |BalloonH|elp..Loc|
|000023d0| 6b 4c 65 66 74 04 54 72 | 75 65 07 4c 6f 63 6b 54 |kLeft.Tr|ue.LockT|
|000023e0| 6f 70 04 54 72 75 65 09 | 4c 6f 63 6b 52 69 67 68 |op.True.|LockRigh|
|000023f0| 74 04 54 72 75 65 0a 4c | 6f 63 6b 42 6f 74 74 6f |t.True.L|ockBotto|
|00002400| 6d 04 54 72 75 65 08 54 | 65 78 74 46 6f 6e 74 06 |m.True.T|extFont.|
|00002410| 47 65 6e 65 76 61 08 54 | 65 78 74 53 69 7a 65 01 |Geneva.T|extSize.|
|00002420| 39 04 42 6f 6c 64 05 46 | 61 6c 73 65 06 49 74 61 |9.Bold.F|alse.Ita|
|00002430| 6c 69 63 05 46 61 6c 73 | 65 09 55 6e 64 65 72 6c |lic.Fals|e.Underl|
|00002440| 69 6e 65 05 46 61 6c 73 | 65 04 54 65 78 74 00 09 |ine.Fals|e.Text..|
|00002450| 54 65 78 74 41 6c 69 67 | 6e 01 30 09 54 65 78 74 |TextAlig|n.0.Text|
|00002460| 43 6f 6c 6f 72 01 30 09 | 4d 75 6c 74 69 4c 69 6e |Color.0.|MultiLin|
|00002470| 65 04 54 72 75 65 04 00 | 02 41 04 4d 65 6e 75 04 |e.True..|.A.Menu.|
|00002480| 4d 65 6e 75 05 a4 01 a4 | 01 90 06 ac 04 04 01 00 |Menu....|........|
|00002490| 00 80 80 80 80 10 00 00 | 00 00 00 07 00 00 88 01 |........|........|
|000024a0| 08 4d 65 6e 75 49 74 65 | 6d 00 00 00 00 00 00 00 |.MenuIte|m.......|
|000024b0| 01 02 00 00 80 80 80 80 | 10 00 00 00 00 00 07 00 |........|........|
|000024c0| 00 88 01 08 4d 65 6e 75 | 49 74 65 6d 00 00 00 00 |....Menu|Item....|
|000024d0| 00 00 00 00 00 04 46 69 | 6c 65 00 80 80 80 80 10 |......Fi|le......|
|000024e0| 00 00 00 00 00 07 00 00 | 88 01 08 4d 65 6e 75 49 |........|...MenuI|
|000024f0| 74 65 6d 00 00 00 00 00 | 00 00 05 00 0e 53 65 6c |tem.....|.....Sel|
|00002500| 65 63 74 20 46 69 6c 65 | 2e 2e 2e 08 46 69 6c 65 |ect File|....File|
|00002510| 4f 70 65 6e 80 80 80 80 | 10 01 4f 00 00 00 00 07 |Open....|..O.....|
|00002520| 00 00 88 01 08 4d 65 6e | 75 49 74 65 6d 00 00 00 |.....Men|uItem...|
|00002530| 00 00 00 00 00 00 10 53 | 65 6c 65 63 74 20 46 6f |.......S|elect Fo|
|00002540| 6c 64 65 72 2e 2e 2e 10 | 46 69 6c 65 53 65 6c 65 |lder....|FileSele|
|00002550| 63 74 46 6f 6c 64 65 72 | 80 80 80 80 10 00 00 00 |ctFolder|........|
|00002560| 00 00 07 00 00 88 01 08 | 4d 65 6e 75 49 74 65 6d |........|MenuItem|
|00002570| 00 00 00 00 00 00 00 00 | 00 01 2d 00 80 80 80 80 |........|..-.....|
|00002580| 10 00 00 00 00 00 07 00 | 00 88 01 08 4d 65 6e 75 |........|....Menu|
|00002590| 49 74 65 6d 00 00 00 00 | 00 00 00 00 00 04 51 75 |Item....|......Qu|
|000025a0| 69 74 08 46 69 6c 65 51 | 75 69 74 80 80 80 80 10 |it.FileQ|uit.....|
|000025b0| 01 51 00 00 00 00 07 00 | 00 88 01 0c 51 75 69 74 |.Q......|....Quit|
|000025c0| 4d 65 6e 75 49 74 65 6d | 00 00 00 00 00 00 00 00 |MenuItem|........|
|000025d0| 02 00 00 80 80 80 80 10 | 00 00 00 00 00 07 00 00 |........|........|
|000025e0| 88 01 08 4d 65 6e 75 49 | 74 65 6d 00 00 00 00 00 |...MenuI|tem.....|
|000025f0| 00 00 00 00 04 45 64 69 | 74 00 80 80 80 80 10 00 |.....Edi|t.......|
|00002600| 00 00 00 00 07 00 00 88 | 01 08 4d 65 6e 75 49 74 |........|..MenuIt|
|00002610| 65 6d 00 00 00 00 00 00 | 00 07 00 04 55 6e 64 6f |em......|....Undo|
|00002620| 08 45 64 69 74 55 6e 64 | 6f 80 80 80 80 10 01 5a |.EditUnd|o......Z|
|00002630| 00 00 00 00 07 00 00 88 | 01 08 4d 65 6e 75 49 74 |........|..MenuIt|
|00002640| 65 6d 00 00 00 00 00 00 | 00 00 00 01 2d 00 80 80 |em......|....-...|
|00002650| 80 80 10 00 00 00 00 00 | 07 00 00 88 01 08 4d 65 |........|......Me|
|00002660| 6e 75 49 74 65 6d 00 00 | 00 00 00 00 00 00 00 03 |nuItem..|........|
|00002670| 43 75 74 07 45 64 69 74 | 43 75 74 80 80 80 80 10 |Cut.Edit|Cut.....|
|00002680| 01 58 00 00 00 00 07 00 | 00 88 01 08 4d 65 6e 75 |.X......|....Menu|
|00002690| 49 74 65 6d 00 00 00 00 | 00 00 00 00 00 04 43 6f |Item....|......Co|
|000026a0| 70 79 08 45 64 69 74 43 | 6f 70 79 80 80 80 80 10 |py.EditC|opy.....|
|000026b0| 01 43 00 00 00 00 07 00 | 00 88 01 08 4d 65 6e 75 |.C......|....Menu|
|000026c0| 49 74 65 6d 00 00 00 00 | 00 00 00 00 00 05 50 61 |Item....|......Pa|
|000026d0| 73 74 65 09 45 64 69 74 | 50 61 73 74 65 80 80 80 |ste.Edit|Paste...|
|000026e0| 80 10 01 56 00 00 00 00 | 07 00 00 88 01 08 4d 65 |...V....|......Me|
|000026f0| 6e 75 49 74 65 6d 00 00 | 00 00 00 00 00 00 00 05 |nuItem..|........|
|00002700| 43 6c 65 61 72 09 45 64 | 69 74 43 6c 65 61 72 80 |Clear.Ed|itClear.|
|00002710| 80 80 80 10 00 00 00 00 | 00 07 00 00 88 01 08 4d |........|.......M|
|00002720| 65 6e 75 49 74 65 6d 00 | 00 00 00 00 00 00 00 02 |enuItem.|........|
|00002730| 00 00 80 80 80 80 10 00 | 00 00 00 00 07 00 00 88 |........|........|
|00002740| 01 08 4d 65 6e 75 49 74 | 65 6d 00 00 00 00 00 00 |..MenuIt|em......|
|00002750| 00 00 02 00 00 80 80 80 | 80 10 00 00 00 00 00 07 |........|........|
|00002760| 00 00 88 01 08 4d 65 6e | 75 49 74 65 6d 00 00 00 |.....Men|uItem...|
|00002770| 00 00 00 00 00 03 41 06 | 4d 6f 64 75 6c 65 0c 42 |......A.|Module.B|
|00002780| 69 74 77 69 73 65 54 6f | 6f 6c 73 8e 02 a0 04 97 |itwiseTo|ols.....|
|00002790| 0d a4 0a 07 00 0c 42 69 | 74 77 69 73 65 54 6f 6f |......Bi|twiseToo|
|000027a0| 6c 73 1d 00 00 02 15 70 | 77 72 4f 66 32 28 33 31 |ls.....p|wrOf2(31|
|000027b0| 29 20 61 73 20 49 6e 74 | 65 67 65 72 01 14 70 77 |) as Int|eger..pw|
|000027c0| 72 49 6e 69 74 65 64 20 | 61 73 20 42 6f 6f 6c 65 |rInited |as Boole|
|000027d0| 61 6e 01 04 06 53 65 74 | 42 69 74 36 76 61 6c 75 |an...Set|Bit6valu|
|000027e0| 65 20 61 73 20 49 6e 74 | 65 67 65 72 2c 20 62 69 |e as Int|eger, bi|
|000027f0| 74 4e 75 6d 62 65 72 20 | 61 73 20 49 6e 74 65 67 |tNumber |as Integ|
|00002800| 65 72 2c 20 74 6f 31 20 | 61 73 20 42 6f 6f 6c 65 |er, to1 |as Boole|
|00002810| 61 6e 07 49 6e 74 65 67 | 65 72 00 03 0e 03 0e 0c |an.Integ|er......|
|00002820| 92 01 46 75 6e 63 74 69 | 6f 6e 20 53 65 74 42 69 |..Functi|on SetBi|
|00002830| 74 28 76 61 6c 75 65 20 | 61 73 20 49 6e 74 65 67 |t(value |as Integ|
|00002840| 65 72 2c 20 62 69 74 4e | 75 6d 62 65 72 20 61 73 |er, bitN|umber as|
|00002850| 20 49 6e 74 65 67 65 72 | 2c 20 74 6f 31 20 61 73 | Integer|, to1 as|
|00002860| 20 42 6f 6f 6c 65 61 6e | 29 20 41 73 20 49 6e 74 | Boolean|) As Int|
|00002870| 65 67 65 72 33 2f 2f 20 | 73 65 74 73 20 6f 72 20 |eger3// |sets or |
|00002880| 63 6c 65 61 72 73 20 61 | 20 62 69 74 20 69 6e 20 |clears a| bit in |
|00002890| 74 68 65 20 33 32 20 42 | 69 74 20 69 6e 74 65 67 |the 32 B|it integ|
|000028a0| 65 72 20 76 61 6c 75 65 | 10 44 69 6d 20 78 20 61 |er value|.Dim x a|
|000028b0| 73 20 49 6e 74 65 67 65 | 72 19 78 20 3d 20 56 61 |s Intege|r.x = Va|
|000028c0| 6c 75 65 4f 66 42 69 74 | 28 62 69 74 4e 75 6d 62 |lueOfBit|(bitNumb|
|000028d0| 65 72 29 0b 69 66 20 74 | 6f 31 20 74 68 65 6e 06 |er).if t|o1 then.|
|000028e0| 2f 2f 20 73 65 74 1b 72 | 65 74 75 72 6e 20 42 69 |// set.r|eturn Bi|
|000028f0| 74 77 69 73 65 4f 72 20 | 28 76 61 6c 75 65 2c 20 |twiseOr |(value, |
|00002900| 78 29 04 65 6c 73 65 08 | 2f 2f 20 63 6c 65 61 72 |x).else.|// clear|
|00002910| 29 72 65 74 75 72 6e 20 | 42 69 74 77 69 73 65 41 |)return |BitwiseA|
|00002920| 6e 64 20 28 76 61 6c 75 | 65 2c 20 42 69 74 77 69 |nd (valu|e, Bitwi|
|00002930| 73 65 4e 6f 74 20 28 78 | 29 29 03 65 6e 64 0c 45 |seNot (x|)).end.E|
|00002940| 6e 64 20 46 75 6e 63 74 | 69 6f 6e 08 49 73 42 69 |nd Funct|ion.IsBi|
|00002950| 74 53 65 74 26 76 61 6c | 75 65 20 61 73 20 49 6e |tSet&val|ue as In|
|00002960| 74 65 67 65 72 2c 20 62 | 69 74 4e 75 6d 62 65 72 |teger, b|itNumber|
|00002970| 20 61 73 20 49 6e 74 65 | 67 65 72 07 42 6f 6f 6c | as Inte|ger.Bool|
|00002980| 65 61 6e 00 01 24 01 24 | 03 84 01 46 75 6e 63 74 |ean..$.$|...Funct|
|00002990| 69 6f 6e 20 49 73 42 69 | 74 53 65 74 28 76 61 6c |ion IsBi|tSet(val|
|000029a0| 75 65 20 61 73 20 49 6e | 74 65 67 65 72 2c 20 62 |ue as In|teger, b|
|000029b0| 69 74 4e 75 6d 62 65 72 | 20 61 73 20 49 6e 74 65 |itNumber| as Inte|
|000029c0| 67 65 72 29 20 41 73 20 | 42 6f 6f 6c 65 61 6e 35 |ger) As |Boolean5|
|000029d0| 72 65 74 75 72 6e 20 42 | 69 74 77 69 73 65 41 6e |return B|itwiseAn|
|000029e0| 64 20 28 76 61 6c 75 65 | 2c 20 56 61 6c 75 65 4f |d (value|, ValueO|
|000029f0| 66 42 69 74 28 62 69 74 | 4e 75 6d 62 65 72 29 29 |fBit(bit|Number))|
|00002a00| 20 3c 3e 20 30 0c 45 6e | 64 20 46 75 6e 63 74 69 | <> 0.En|d Functi|
|00002a10| 6f 6e 0a 56 61 6c 75 65 | 4f 66 42 69 74 10 62 69 |on.Value|OfBit.bi|
|00002a20| 74 4e 6f 20 61 73 20 49 | 6e 74 65 67 65 72 07 49 |tNo as I|nteger.I|
|00002a30| 6e 74 65 67 65 72 00 0f | 13 0f 13 12 30 46 75 6e |nteger..|....0Fun|
|00002a40| 63 74 69 6f 6e 20 56 61 | 6c 75 65 4f 66 42 69 74 |ction Va|lueOfBit|
|00002a50| 28 62 69 74 4e 6f 20 61 | 73 20 49 6e 74 65 67 65 |(bitNo a|s Intege|
|00002a60| 72 29 20 41 73 20 49 6e | 74 65 67 65 72 12 2f 2f |r) As In|teger.//|
|00002a70| 20 72 65 74 75 72 6e 73 | 20 32 5e 62 69 74 4e 6f | returns| 2^bitNo|
|00002a80| 13 44 69 6d 20 69 2c 20 | 78 20 61 73 20 49 6e 74 |.Dim i, |x as Int|
|00002a90| 65 67 65 72 15 69 66 20 | 6e 6f 74 20 70 77 72 49 |eger.if |not pwrI|
|00002aa0| 6e 69 74 65 64 20 74 68 | 65 6e 05 78 20 3d 20 31 |nited th|en.x = 1|
|00002ab0| 0f 66 6f 72 20 69 20 3d | 20 30 20 74 6f 20 33 30 |.for i =| 0 to 30|
|00002ac0| 0d 70 77 72 4f 66 32 28 | 69 29 20 3d 20 78 09 78 |.pwrOf2(|i) = x.x|
|00002ad0| 20 3d 20 32 20 2a 20 78 | 04 6e 65 78 74 17 70 77 | = 2 * x|.next.pw|
|00002ae0| 72 4f 66 32 28 33 31 29 | 20 3d 20 26 48 38 30 30 |rOf2(31)| = &H800|
|00002af0| 30 30 30 30 30 10 70 77 | 72 49 6e 69 74 65 64 20 |00000.pw|rInited |
|00002b00| 3d 20 74 72 75 65 03 65 | 6e 64 1f 69 66 20 62 69 |= true.e|nd.if bi|
|00002b10| 74 4e 6f 20 3c 20 30 20 | 6f 72 20 62 69 74 4e 6f |tNo < 0 |or bitNo|
|00002b20| 20 3e 20 33 31 20 74 68 | 65 6e 1e 52 61 69 73 65 | > 31 th|en.Raise|
|00002b30| 20 6e 65 77 20 4f 75 74 | 4f 66 42 6f 75 6e 64 73 | new Out|OfBounds|
|00002b40| 45 78 63 65 70 74 69 6f | 6e 04 65 6c 73 65 14 72 |Exceptio|n.else.r|
|00002b50| 65 74 75 72 6e 20 70 77 | 72 4f 66 32 28 62 69 74 |eturn pw|rOf2(bit|
|00002b60| 4e 6f 29 03 65 6e 64 0c | 45 6e 64 20 46 75 6e 63 |No).end.|End Func|
|00002b70| 74 69 6f 6e 0a 42 69 74 | 77 69 73 65 4e 6f 74 0c |tion.Bit|wiseNot.|
|00002b80| 76 20 61 73 20 49 6e 74 | 65 67 65 72 07 49 6e 74 |v as Int|eger.Int|
|00002b90| 65 67 65 72 00 02 0d 02 | 0d 04 2c 46 75 6e 63 74 |eger....|..,Funct|
|00002ba0| 69 6f 6e 20 42 69 74 77 | 69 73 65 4e 6f 74 28 76 |ion Bitw|iseNot(v|
|00002bb0| 20 61 73 20 49 6e 74 65 | 67 65 72 29 20 41 73 20 | as Inte|ger) As |
|00002bc0| 49 6e 74 65 67 65 72 1c | 2f 2f 20 72 65 74 75 72 |Integer.|// retur|
|00002bd0| 6e 73 20 61 6c 6c 20 62 | 69 74 73 20 69 6e 76 65 |ns all b|its inve|
|00002be0| 72 74 65 64 0d 72 65 74 | 75 72 6e 20 2d 31 20 2d |rted.ret|urn -1 -|
|00002bf0| 20 76 0c 45 6e 64 20 46 | 75 6e 63 74 69 6f 6e 00 | v.End F|unction.|
|00002c00| 00 00 00 00             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+